home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / unnamer.e < prev    next >
Encoding:
Text File  |  1995-12-27  |  508 b   |  27 lines
  1.  
  2. -> Copyright © 1995, Guichard Damien.
  3.  
  4. -> Unnamer is an artefact whose special purpose is to invalid
  5. -> old names of renamed features.
  6. -> Unnamer is invisible at user level (over to class level)
  7.  
  8. OPT MODULE
  9. OPT EXPORT
  10.  
  11. MODULE '*strings'
  12. MODULE '*feature'
  13.  
  14. -> feature unnamer
  15. OBJECT unnamer OF feature
  16. ENDOBJECT
  17.  
  18. -> Make old_name invalid.
  19. PROC old_name(name) OF unnamer
  20.   self.int:=hash(name)
  21.   self.name:=name
  22. ENDPROC
  23.  
  24. -> Has feature this final name in the class?
  25. PROC has_final_name() OF unnamer IS FALSE
  26.  
  27.